home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
R-Shows
/
(c)computerfest sept94.d64
/
qwkie.zipper
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
2KB
|
20 lines
10 INPUT".MSG FILENAME";F$:IFF$=""THEN10
15 IFRIGHT$(F$,4)<>".MSG"THENF$=F$+".MSG"
20 POKE49152,LEN(F$)
25 FORI=1TOLEN(F$):POKE49152+I,ASC(MID$(F$,I,1)):NEXT
30 INPUT"DEVICE NO.";D1$
35 D1=VAL(D1$):IFD1<8THEN30
40 INPUT"OUTPUT DEVICE NO.";D2$
45 D2=VAL(D2$):IFD2<8THEN40
50 OPEN2,D1,2,F$+",R"
55 OPEN12,D1,15
60 F2$=LEFT$(F$,LEN(F$)-4)+".REP"
65 OPEN3,D2,3,F2$+",S,W"
70 OPEN13,D2,15
75 INPUT#12,E$,I$,J$,J$
80 IFE$<>"00"THENPRINT"DEVICE"D1"[157]:"I$:GOTO100
85 INPUT#13,E$,I$,J$,J$
90 IFE$<>"00"THENPRINT"DEVICE"D2"[157]:"I$:GOTO100
95 PRINT"[215]ORKING ";:SYS 11*256
100 FORI=0TO15:CLOSEI:NEXT